VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BSalon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarncodigo As Integer
Private mvarsdescripcionCorta As String
Private mvarsdescripcionLarga As String
Private mvarlmesas As Collection

Private Sub Class_Initialize()
Set mvarlmesas = New Collection
End Sub

Private Sub Class_Terminate()

    Set mvarlmesas = Nothing

End Sub


Public Property Get lmesas() As Collection

    Set lmesas = mvarlmesas

End Property

Public Property Set lmesas(lmesas As Collection)

    Set mvarlmesas = lmesas

End Property


Public Property Get ncodigo() As Integer

    ncodigo = mvarncodigo

End Property

Public Property Let ncodigo(ByVal ncodigo As Integer)

    mvarncodigo = ncodigo

End Property

Public Property Get sdescripcionCorta() As String

    sdescripcionCorta = mvarsdescripcionCorta

End Property

Public Property Let sdescripcionCorta(ByVal sdescripcionCorta As String)

    mvarsdescripcionCorta = sdescripcionCorta

End Property

Public Property Get sdescripcionLarga() As String

    sdescripcionLarga = mvarsdescripcionLarga

End Property

Public Property Let sdescripcionLarga(ByVal sdescripcionLarga As String)

    mvarsdescripcionLarga = sdescripcionLarga

End Property
